10 POKE53281,0:POKE53280,0
17 :
18 REM  SETUP
19 :
20 POKE56,56:POKE55,0:CLR
30 SYS57812"GORGONFONT",8,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
35 SYS57812"COPYMEM.O",8,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
40 SYS57812"GORGONS",8,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
50 POKE53272,31
97 :
98 REM  DRAW SCREEN
99 :
100 PRINT"[147][156]"TAB(14)"[176][192][192][192][192][192][192][192][192][192][192][192][174]
110 [129]I[178]0[164]6:[153][163]14)"(null)           (null)":[130]
120 [153][163]14)"/TANTANTANTANTANTANTANTANTANTANTANEXP
130 R=6:C=15:CO=15:GOSUB900
140 PRINT"[159]  [207]KAY, OKAY!  [211]O [201]'LL NEVER WORK FOR"
150 PRINT" [196]ISNEY!  [200]OWEVER, THIS SHOWS THAT WITH
160 [153]" 'FONT GRAPHICS' AND LEN(null)(null)(null)(null)VAL(null), SIMPLE
170 PRINT" ANIMATION IS POSSIBLE.
180 [153]" (null)RESS +OPEN OR -OPEN TO ADJUST THE SPEED.
190 PRINT" [208]RESS [209][159] TO RETURN TO [204][207][193][196][211][212][193][210].
195 [151]650,128:D[178]50
197 :
198 [143]  ANIMATION LOOP
199 :
200 [129]I[178]0[164]4:[129]T[178]0[164]D:[130]
210 [158]49152,16384[170]I[172]616,15360,616
220 [130]
227 :
228 [143]  GET LOOP
229 :
230 [161]A$:[139]A$[178]""[167]200
240 [139]A$[178]"+"[167]D[178]D[171]5:[139]D[179]1[167]D[178]0
250 [139]A$[178]"-"[167]D[178]D[170]5:[139]D[177]100[167]D[178]100
260 [139]A$[178]"Q"[167]300
270 [137]200
297 :
298 [143]  TO LOADSTAR
299 :
300 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
310 [139]ER[179][177]63[167][153]"LOADOPEN":[151]650,0:[151]53272,23:[128]
320 [153]"LOADSTOPLOAD"[199](34)"HELLO CONNECT"[199](34)",8"
330 [153]"RUN"
340 [151]631,13:[151]632,13:[151]198,2:[128]
897 :
898 :  [153] IMAGE SUBROUTINE
899 :
900 [151]214,R[171]1:[153]:[151]646,CO
910 [153][163]C)"@ABCDEFGHIJ"
920 [153][163]C)"KLMNOPQRSTU"
930 [153][163]C)"VWXYZ[\]^_ "
940 [153][163]C)"!"[199](34)"#$%&'()*+"
950 [153][163]C)",-./0123456"
960 [153][163]C)"789:;<=>?TANATN"
970 [153][163]C)"PEEKLENSTR$VALASCCHR$LEFT$RIGHT$MID$(null)(null)"
980 [142]
10000 [159]15,8,15,"I0":[152]15,"S0:BASICS 88":[160]15:[148]"BASICS 88",8:[128]